Exploring Where & Why/Exploring Where & Why.iso/pc/MODULES/LESSON08/ACT08B/common8.cst/00051.ls

Text File | 2004-07-11 | 281 b | 10 lines

on addPrompt startMember,endMember, castName
  repeat with i=startMember to endMember
    set oldName=the name of member i of castLib castName
    if item 2 of oldName<>"prompt" then
      set the name of member i of castLib castName=oldName&",prompt"
    end if
  end repeat
end